(latin1-char-displayable-p): Add leading "-" for X font pattern.

diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el
index 49678cc95184b4ce47f76f1618d15ae0b3f81ca5..7c2abed603a6f1c8664d289ef0d0850f81e636f5 100644 (file)
--- a/lisp/international/latin1-disp.el
+++ b/lisp/international/latin1-disp.el
@@ -1,6 +1,6 @@
 ;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: emacs-mule -*-
 
-;; Copyright (C) 2000 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author: Dave Love <fx@gnu.org>
 ;; Keywords: i18n
@@ -181,7 +181,8 @@ character set: `latin-2', `hebrew' etc."
                 ;; Now FONT-PATTERN is a string or a cons of family
                 ;; field pattern and registry field pattern.
                 (or (stringp font-pattern)
-                    (setq font-pattern (concat (or (car font-pattern) "*")
+                    (setq font-pattern (concat "-"
+                                               (or (car font-pattern) "*")
                                                "-*-"
                                                (cdr font-pattern))))
                 (x-list-fonts font-pattern 'default (selected-frame) 1)))))